how to parse json file in perl